VERSION 5.00
Begin VB.Form frmUpload 
   Caption         =   "Uploading to Remote Server"
   ClientHeight    =   2625
   ClientLeft      =   5055
   ClientTop       =   5340
   ClientWidth     =   5160
   LinkTopic       =   "Form1"
   ScaleHeight     =   2625
   ScaleWidth      =   5160
   Begin VB.PictureBox Picture1 
      Height          =   1150
      Left            =   240
      Picture         =   "frmUpload.frx":0000
      ScaleHeight     =   1095
      ScaleWidth      =   4515
      TabIndex        =   1
      Top             =   240
      Width           =   4575
   End
   Begin VB.CommandButton cmdUpload 
      Caption         =   "Upload to IS"
      Height          =   735
      Left            =   1440
      TabIndex        =   0
      Top             =   1560
      Width           =   2295
   End
End
Attribute VB_Name = "frmUpload"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdUpload_Click()

Dim dllValidation       As clsValidate
Dim strValidate         As String
Dim strUploadRequest    As String
Dim strUploadResponse   As String
Dim strUploadProvTax    As String
Dim strUploadDecRes     As String
Dim strUploadCanRes     As String
Dim strUploadSeq        As String
Dim strInsertDate       As String

Set dllValidation = New clsValidate
strValidate = dllValidation.Upload(strUploadRequest, _
                                   strUploadResponse, _
                                   strUploadProvTax, _
                                   strUploadDecRes, _
                                   strUploadCanRes, _
                                   strUploadSeq, _
                                   strInsertDate)
    
frmMessage.Show
DoEvents
frmMessage.lblMessage.Caption = strUploadRequest & vbCrLf & _
                                strUploadResponse & vbCrLf & _
                                strUploadProvTax & vbCrLf & _
                                strUploadDecRes & vbCrLf & _
                                strUploadCanRes & vbCrLf & _
                                strUploadSeq & vbCrLf & _
                                strInsertDate

Unload frmUpload

End Sub



